home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / HardwareProjects / i2clib38.lha / Glue / SAS-C / src / i2c.i < prev    next >
Encoding:
Text File  |  1994-01-07  |  791 b   |  27 lines
  1. ****************************************************
  2. *                                                  *
  3. *       I2C linkable library code                  *
  4. *       (for SAS/C)                                *
  5. *                                                  *
  6. *       i2c.lib / i2cnb.lib                        *
  7. *                                                  *
  8. *       Copyright (c) 1993 by Brian Ipsen          *
  9. *                                                  *
  10. ****************************************************
  11.  
  12.     XREF    _I2C_Base
  13.  
  14. GETI2CBASE    MACRO
  15.     IFD    SMALL_CODE
  16.     move.l    _I2C_Base(a4),a6    ; If a4 addressing...
  17.     ENDC
  18.     IFD    LARGE_CODE
  19.     move.l    _I2C_Base,a6    ; If no a4 addressing...
  20.     ENDC
  21.     IFND    SMALL_CODE
  22.     IFND    LARGE_CODE
  23.     moveq.l #12323,a0    ; Cause an error!
  24.     ENDC
  25.     ENDC
  26.     ENDM
  27.